Top 10k strings from Course Winner v3 (1984)(Selec Software)(Side B).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
7 "________________________________"
4 "Press ENTER...";Q$:
3 COURSENO=0
3 (X$)<HORSE
3 "X to exit, ENTER to continue A number to change an entry ";x$:
3 "Press ENTER...";X$
2 X;"... ";:
2 TTL=TTL+P(X)
2 PROB=PROB*M(1
2 PROB=PROB*G(ODER+1
2 P(X)=P(X)*FACTOR
2 E$=F$(COURSENO)(1
2 C$(COURSENO);U$;" ";RACELENGTH;" ";G$:
2 B(COURSENO,X,1
2 );J$(B(COURSENO,X,1
2 "Y FOR YES ENTER FOR NO..";Q$:
2 "X to exit":
2 "Press ENTER...";X$:
2 "PRESS ENTER...";X$:
2 "PRESS ENTER...";X$
2 "CHANGE NUMBER...";X:
2 "A=add new name, C=change ";x$
1 Y=B(COURSENO,X,2
1 Y=B(COURSENO,X,1
1 Y$(H,O)=I$
1 X;" ";J$(X):
1 V3=P(S(H)):
1 V$=Y$(H,Z):
1 V$=G$+" ":
1 TTL=TTL+R(X)
1 TTL=TTL+E(X)
1 T$(X);" ";:
1 T$(LS);"ADDED = No.";LS:
1 T$(LASTT,15
1 T$(B(COURSENO,X,2
1 T
1 STARS=P((S(H)))*Z
1 S(X)=K(X,9
1 S(X)=K(X,3
1 S(X)=K(X,2
1 S(X)=K(X,1
1 S(J)=S(J+1
1 S$="100-1"
1 RACELENGTH=K(3
1 RACELENGTH=0
1 RACELENGTH=
1 RACELENGTH<5
1 R.Armstrong I.Balding C.Benstead J.Berry C.Brittain N.Callaghan H.Candy H.Cecil P.Cole T.Craig L.Cumani J.Dunlop F.Durr W.Elsey J.Etherington M.H.Easterby M.W.Easterby T.Fairhurst J.Fizgerald J.Hardy R.Hannon G.Harwood P.Haslam M.Haynes W.Hern C.Hill B.Hills J.Hindley B.Hobbs R.Hollinshead R.Houghton G.Huffer M.Jarvis P.Kellaway D.Laing G.Lewis M.Masson D.Morley C.Nelson S.Norton M.V.Obrien W.O'Gorman Sir M.Prescott G.Pritch-GordonG.Richards P.Rohan D.Smith M.Smyly R.Smyth M.Stoute J.Sutcliffe P.Taylor B.Swift H.Thompson-JoneC.Thornton J.Tree P.Walwyn J.W.Watts E.Weymes W.Williams J.Winter G.Wragg
1 R(X)=R(X)*FACTOR
1 R$=K$(S(H),3
1 PROB=PROB*M(
1 PROB=PROB*0.3
1 PREFERED=(HORSE-1
1 P(X)=P(X)*R(X)
1 P(X)=P(X)*E(X):
1 P(X)=P(X)*CORRECT
1 P(H)=P(H)*(1
1 O(X)=P(X):
1 O(S(J))<O(S(J+1
1 K$(HORSE,5
1 J$(LS);"ADDED = No.";LS:
1 J$(LASTJ,15
1 J
1 HORSE;" ";
1 H5 H5 H5 H5 H56 N N N L5F N H78 H5 N H678F H56S N N N H7GF N N N N H56S N H56S N L78S H5 H56S H567S N N H6 H7S
1 H$=F$(COURSENO)
1 G.Baxter M.Birch J.Bleasdale A.Bond N.Carlisle L.Charnock W.Carson S.Cauthen A.Clark N.Connorton R.Cochrane P.Cook B.Crossley R.Curant K.Darley G.Duffield C.Dwyer P.Eddery R.Fox M.Fry O.Gray E.Hide M.Hills K.Hodgson T.Ives E.Johnson A.Kimberley J.Lowe J.Mathias J.Mercer M.Miller S.Perks L.Piggot B.Raymond J.Reid P.Robinson T.Rogers B.Rouse J.Seagrave R.Sidebottom G.Starkey W.Swinburn B.Taylor M.L.Thomas P.Waldron R.Weaver S.Webster M.Wigham
1 G$=F$(COURSENO)(Y
1 F$(LASTC,6
1 F$(COURSENO)="N"
1 F$(COURSENO)(X+1
1 F
1 E(X)=E(X)*FACTOR
1 DV=RACELENGTH:
1 DV=D(H,Z):
1 Created with Ramsoft MakeTZX
1 CW3
1 COURSENO=X
1 COURSENO=K(2
1 C$(LASTC,12
1 C$(COURSENO);U$;:
1 C$(COURSENO);")"
1 C$(COURSENO);" ";U$:
1 C !
1 B(LASTC,10
1 B(COURSENO,X,2
1 B
1 ASCOT AYR BATH BEVERLEY BRIGHTON CARLISLE CATTERICK CHEPSTOW CHESTER DONCASTER EDINBURGH EPSOM FOLKSTONE GOODWOOD HAMILTON HAYDOCK KEMPTON LEICESTER LINGFIELD NEWBURY NEWCASTLE NEWMARKET(RMNEWMARKET(JUNOTTINGHAM PONTEFRACT REDCAR RIPON SALISBURY SANDOWN THIRSK WARWICK WINDSOR WOLVERHAMPTOYARMOUTH YORK
1 =,0.000001
1 ;C$(COURSENO):
1 ;B(COURSENO,X,2
1 ;"________________________________"
1 ;"_______________________________"
1 ;"Todays going..";:
1 ;"NO RACE DETAILS KNOWN":
1 ;"NO COURSE HAS BEEN SELECTED":
1 ;"INPUT RACE INFORMAION":
1 ;"Draw favoured..";:
1 ;"ANALYSING Please wait"
1 ;"(";K$(H,1
1 ;" ";C$(COURSENO)
1 ;" TRAINERS LISTED (MAX ";LASTT;")":
1 ;" Name JKY TRNER"
1 ;" JOCKEYS";
1 ;" JOCKEYS LISTED (MAX ";LASTJ;")":
1 ;" ":
1 ;" "
1 ;" "
1 ;" "
1 +(T(H)/100
1 )>(HORSE-1
1 )=RACELENGTH:
1 )=COURSENO:
1 )=COURSENO
1 )<PREFERED)
1 );T$(B(COURSENO,X,2
1 );K$(S(H),3
1 );"correction":
1 );"calc form profit"
1 );"X....EXIT"
1 );"V....VIEW INFORMATION":
1 );"TRAINERS "
1 );"T....change/add to Trainers":
1 );"SAVE NEW INFO DATA FILES"
1 );"SAVE CURRENT RACE DATA":
1 );"S....SAVE new info to tape":
1 );"S....SAVE CURRENT RACE DATA"
1 );"RATING":
1 );"P....PRICES":
1 );"NO RACE LOGGED":
1 );"N....LOG A NEW RACE"
1 );"LOAD RACE DATA FROM TAPE":
1 );"LEADING JOCKEYS"
1 );"L....LOAD RACE DATA":
1 );"J....change/add to Jockeys":
1 );"I....INPUT RACE INFORMATION":
1 );"D....CHANGE JKY/TRNER DATA":
1 );"Copyright SELEC 1984":
1 );"COURSEWINNER V3":
1 );"CHANGE TRAINERS":
1 );"CHANGE JOCKEYS/TRAINERS":
1 );"CHANGE JOCKEYS":
1 );"CHANGE JKY/TRNER INFO":
1 );"C....change course info":
1 );"C....COURSES":
1 );"B....ADJUST BIASING":
1 );"ANALYSIS":
1 );"ADJUST BIAS":
1 );"A....ANALYSE CURRENT DATA":
1 );"6...EXIT TO MENU"
1 );"5...VIEW INFORMATION":
1 );"4...SPEED FACTORS":
1 );"3...PRIZE MONEY/3 RACE FORM":
1 );"2...JKY/TRNER INFO":
1 );"1...DRAW/WT/PLACINGS":
1 );"*** LOG NEW RACE ***":
1 )-PREFERED)
1 )+V(H,Z)/PV)
1 (X$)>LASTC)
1 (S(X)*HX/MO2):
1 (RACELENGTH)=F$(COURSENO)(X
1 (I$)<LASTT+1
1 (I$)<LASTJ+1
1 "runner odds sp rating level"
1 "loading data files...":
1 "________________________________":
1 "_______________________________":
1 "________"
1 "X to exit, ENTER to cont.";X$:
1 "X to exit, ENTER to cont ";X$
1 "X to exit ENTER to continue..";x$:
1 "Wt carried............ ";:
1 "WEIGHT CARRIED......(";I(7
1 "Value to winner........";:
1 "Type ref. numbers if represented":
1 "Type adjusted biasing":
1 "Total prize money........ ";:
1 "TYPE COURSE NUMBER...";X$:
1 "TOTAL PRIZE MONEY...(";I(1
1 "THREE RACE FORM.....(";I(3
1 "Seasons prize money...... ";:
1 "STALL EFFECT........(";I(10
1 "SPEED FACTOR 3......(";I(6
1 "SPEED FACTOR 2......(";I(5
1 "SPEED FACTOR 1......(";I(4
1 "SPEED FACTOR (";X;")... ";:
1 "SEASONS PRIZE MONEY.(";I(2
1 "Record/Play on tape..."
1 "Race time.....";U$
1 "Race length in furlongs....";A$:
1 "RUNNER JKY TRNER TPM SPM":
1 "Press a key when prompted.."
1 "Press PLAY on tape..."
1 "Press ENTER...";x$:
1 "Press ENTER...";q$
1 "Press ENTER...";Q$
1 "Please give leading TRAINER Nos.":
1 "Please give leading JOCKEY Nos.":
1 "Placing................";:
1 "Overweight..(lbs)..... ";:
1 "OUTING ";O:
1 "No. of outings.(max 3)... ";:
1 "Names of runners...(F to end)..."
1 "NOT KNOWN"
1 "NONE LOGGED)"
1 "Last three placings... ";:
1 "LEADING TRAINERS....(";I(9
1 "LEADING TRAINERS";
1 "LEADING JOCKEYS.....(";I(8
1 "Input details...":
1 "Going (F,GF,G,GS,S)....";:
1 "GOOD TO SOFT":
1 "GOOD TO FIRM":
1 "GOING..(F,G,S,GF,GS)...";G$
1 "Enter speed rating (up to 3)":
1 "ENTER NEW NAME...";T$(X):
1 "ENTER NEW NAME...";T$(LS):
1 "ENTER NEW NAME...";J$(X):
1 "ENTER NEW NAME...";J$(LS):
1 "Draw.................. ";:
1 "Distance in furlongs...";:
1 "Course (number) please...";X$
1 "COURSE... ";
1 "Allowance...(lbs)..... ";:
1 "=CHANGED TO ";T$(X):
1 "=CHANGED TO ";J$(X):
1 "3 RACE FORM"
1 "(ENTER to leave unchanged)":
1 " LOADED":
1 " (Previous race will be erased)"
1 " RUNNER(Wt) DRAW SP 1 2 3":
1 " ":